home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmgl.dir / Internal_20_erasor2.ls < prev    next >
Encoding:
Text File  |  2001-09-04  |  480 b   |  26 lines
  1. property myName, meSprite, meMember, meHmember
  2. global gmObject
  3.  
  4. on beginSprite me
  5.   meSprite = sprite(me.spriteNum)
  6.   meMember = meSprite.member
  7.   myName = meSprite.member.name
  8.   meHmember = member(myName & "h", 2)
  9. end
  10.  
  11. on mouseUp me
  12.   repeat with n = 1 to gmObject.faceSpriteList.count
  13.     gmObject.faceSpriteList[n].setBack()
  14.   end repeat
  15. end
  16.  
  17. on mouseEnter me
  18.   meSprite.member = meHmember
  19.   updateStage()
  20. end
  21.  
  22. on mouseLeave me
  23.   meSprite.member = meMember
  24.   updateStage()
  25. end
  26.